home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 3.iso / dist / fw_qt3.idb / usr / freeware / Qt / bin / findtr.z / findtr
Text File  |  2002-04-08  |  4KB  |  190 lines
  1. #!/usr/bin/perl -w
  2. # vi:wrap:
  3.  
  4. # See Qt I18N documentation for usage information.
  5.  
  6. use POSIX qw(strftime);
  7.  
  8. $projectid='PROJECT VERSION';
  9. $datetime = strftime "%Y-%m-%d %X %Z", localtime;
  10. $charset='iso-8859-1';
  11. $translator='FULLNAME <EMAIL@ADDRESS>';
  12. $revision_date='YYYY-MM-DD';
  13.  
  14. $real_mark = "tr";
  15. $noop_mark = "QT_TR_NOOP";
  16. $scoped_mark = "qApp->translate";
  17. $noop_scoped_mark = "QT_TRANSLATE_NOOP";
  18.  
  19. $header=
  20. '# This is a Qt message file in .po format.  Each msgid starts with
  21. # a scope.  This scope should *NOT* be translated - eg. translating
  22. # from French to English, "Foo::Bar" would be translated to "Pub",
  23. # not "Foo::Pub".
  24. msgid ""
  25. msgstr ""
  26. "Project-Id-Version: '.$projectid.'\n"
  27. "POT-Creation-Date: '.$datetime.'\n"
  28. "PO-Revision-Date: '.$revision_date.'\n"
  29. "Last-Translator: '.$translator.'\n"
  30. "Content-Type: text/plain; charset='.$charset.'\n"
  31.  
  32. ';
  33.  
  34.  
  35.  
  36.  
  37. $scope = "";
  38.  
  39. if ( $#ARGV < 0 ) {
  40.     print STDERR "Usage:  findtr sourcefile ...  >project.po\n";
  41.     exit 1;
  42. }
  43.  
  44.  
  45. sub outmsg {
  46.     my ($file, $line, $scope, $msgid) = @_;
  47.     # unesc
  48.     $msgid =~ s/$esc:$esc:$esc/::/gs;
  49.     $msgid =~ s|$esc/$esc/$esc|//|gs;
  50.  
  51.     # Remove blank lines
  52.     $msgid =~ s/\n\n+/\n/gs;
  53.     $msgid = "\"\"\n$msgid" if $msgid =~ /\n/s;
  54.     print "#: $file:$line\n";
  55.     $msgid =~ s/^"//; #"emacs bug
  56.     print "msgid \"${scope}::$msgid\n";
  57.     #print "msgstr \"$msgid\n";
  58.     print "msgstr \"\"\n";
  59.     print "\n";
  60. }
  61.  
  62. sub justlines {
  63.     my $l = @_;
  64.     $l =~ tr|\n||dc;
  65.     return $l;
  66. }
  67.  
  68. print $header;
  69.  
  70.  
  71. foreach $file ( @ARGV ) {
  72.     next unless open( I, "< $file" );
  73.  
  74.     $source = join( "", <I> );
  75.  
  76.     # Find esc. Avoid bad case 1/// -> 1/1/1/1 -> ///1
  77.     $esc = 1;
  78.     while ( $source =~ m!(?:$esc/$esc/$esc)|(?:$esc///)
  79.         |(?:$esc:$esc:$esc)|(?:$esc:\:\:)! ) {
  80.     $esc++;
  81.     }
  82.  
  83.     # Hide quoted :: in practically all strings
  84.     $source =~ s/\"([^"\n]*)::([^"\n]*)\"/\"$1$esc:$esc:$esc$2\"/g;
  85.  
  86.     # Hide quoted // in practically all strings
  87.     $source =~ s|\"([^"\n]*)//([^"\n]*)\"|\"$1$esc/$esc/$esc$2\"|g;
  88.  
  89.  
  90.     # strip comments -- does not handle "/*" in strings
  91.     while( $source =~ s|/\*(.*?)\*/|justlines($1)|ges ) { }
  92.     while( $source =~ s|//(.*?)\n|\n|g ) { }
  93.  
  94.     while( $source =~ /
  95.         (?:
  96.         # Some doublequotes are "escaped" to help vim syntax highlight
  97.  
  98.         # $1 = scope; $2 = parameters etc.
  99.         (?:
  100.             # Scoped function name ($1 is scope).
  101.             (\w+)::(?:\w+)
  102.             \s*
  103.             # Parameters etc up to open-curly - no semicolons
  104.             \(([^();]*)\)
  105.             \s*
  106.             (?:\{|:)
  107.         )
  108.           |
  109.         # $3 - one-argument msgid
  110.         (?:\b
  111.             # One of the marks
  112.             (?:$real_mark|$noop_mark)
  113.             \s*
  114.             # The parameter
  115.             \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\)
  116.         )
  117.           |
  118.         # $4,$5 - two-argument msgid
  119.         (?:\b
  120.             # One of the scoped marks
  121.             (?:$scoped_mark|$noop_scoped_mark)
  122.             \s*
  123.             # The parameters
  124.             \(
  125.             # The scope parameter
  126.             \s*"([^\"]*)"
  127.             \s*,\s*
  128.             # The msgid parameter
  129.             \s*((?:\"(?:[^"]|[^\\]\\")*"\s*)+) #"emacs
  130.             \)
  131.         )
  132.           |
  133.         # $6,$7 - scoped one-argument msgid
  134.         (?:\b
  135.             # The scope
  136.             (\w+)::
  137.             # One of the marks
  138.             (?:$real_mark)
  139.             \s*
  140.             # The parameter
  141.             \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\)
  142.         )
  143.         )/gsx )
  144.     {
  145.     @lines = split /^/m, "$`";
  146.     $line = @lines;
  147.     if ( defined( $1 ) ) {
  148.         if ( $scope ne $1 ) {
  149.         $sc=$1;
  150.         $etc=$2;
  151.         # remove strings
  152.         $etc =~ s/"(?:[^"]|[^\\]\\")"//g;
  153.         # count ( and )
  154.         @open = split /\(/m, $etc;
  155.         @close = split /\)/m, $etc;
  156.         if ( $#open == $#close ) {
  157.             $scope = $sc;
  158.         }
  159.         }
  160.         next;
  161.     }
  162.  
  163.            if ( defined( $3 ) ) {
  164.         $this_scope = $scope;
  165.         $msgid = $3;
  166.     } elsif ( defined( $4 ) ) {
  167.         $this_scope = $4;
  168.         $msgid = $5;
  169.     } elsif ( defined( $6 ) ) {
  170.         $this_scope = $6;
  171.         $msgid = $7;
  172.     } else {
  173.         next;
  174.     }
  175.  
  176.     $msgid =~ s/^\s*//;
  177.     $msgid =~ s/\s*$//;
  178.  
  179.     # Might still be non-unique eg. tr("A" "B")  vs.  tr("A"  "B").
  180.  
  181.     $location{"${this_scope}::${msgid}"} = "$file:$line";
  182.     }
  183. }
  184.  
  185. for $scoped_msgid ( sort keys %location ) {
  186.     ($scope,$msgid) = $scoped_msgid =~ m/([^:]*)::(.*)/s;
  187.     ($file,$line) = $location{$scoped_msgid} =~ m/([^:]*):(.*)/s;
  188.     outmsg($file,$line,$scope,$msgid);
  189. }
  190.